perm filename TAK.IL[TIM,LSP]2 blob sn#722274 filedate 1983-07-28 generic text, type T, neo UTF8
(FILECREATED "14-FEB-83 10:11:44" {PHYLUM}<GABRIEL>TAK.;2 453    

      changes to:  (VARS TAKCOMS)
		   (FNS TAK)

      previous date: "14-FEB-83 09:45:21" {DSK}TAK.;1)


(PRETTYCOMPRINT TAKCOMS)

(RPAQQ TAKCOMS ((FNS TAK)))
(DEFINEQ

(TAK
  [LAMBDA (X Y Z)
    (COND
      ((NOT (ILESSP Y X))
	Z)
      (T (TAK (TAK (SUB1 X)
		   Y Z)
	      (TAK (SUB1 Y)
		   Z X)
	      (TAK (SUB1 Z)
		   X Y])
)
(DECLARE: DONTCOPY
  (FILEMAP (NIL (236 431 (TAK 246 . 429)))))
STOP